home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1998 #6 / 1998 CD 6 (Gul).iso / main.dir / 00338.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  983 b   |  32 lines
  1. on findNextScript
  2.   global gDest, gNextCast, gPanelChannel, gStarChannel, gForceClick
  3.   set nextStar to char 6 of gNextCast
  4.   if the number of cast gNextCast = -1 then
  5.     if gDest = 9 then
  6.       exit
  7.     else
  8.       set gDest to gDest + 1
  9.       set gNextCast to gDest & "star1"
  10.       set nextDestScript to line gDest of field "panelHandlers"
  11.       if the number of cast gNextCast = -1 then
  12.         set gForceClick to integer(gDest + gPanelChannel - 1)
  13.         updateDest(gDest)
  14.         laserOn(gForceClick)
  15.       else
  16.         updateDest(gDest)
  17.         laserOn(gForceClick)
  18.         set nextStarScript to the scriptText of cast gNextCast
  19.         set whatNow to line 2 of nextStarScript
  20.         set gForceClick to gStarChannel
  21.         do(whatNow)
  22.       end if
  23.     end if
  24.   else
  25.     set nextStarScript to the scriptText of cast gNextCast
  26.     set whatNow to line 2 of nextStarScript
  27.     set gForceClick to integer(nextStar + gStarChannel - 1)
  28.     do(whatNow)
  29.   end if
  30.   setUpFlash(0)
  31. end
  32.